clc;
clear;
% A=syms('%a%d%d',4);%书上的代码在这里不兼容
% d=det(A)

syms a [4 4]
d=det(a)

disp("---------下面求代数余子式-方法1---------")
i=2;
j=3;
B=a;
B(1,:)=[];
B(:,j)=[];
a23=(-1)^(i+j)*det(B)

disp("---------下面求代数余子式-方法2---------")
A23_i=simplify((d-subs(d,a2_3,0))/a2_3)